home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / lfw_25b.lsp < prev    next >
Text File  |  1998-03-15  |  23KB  |  552 lines
  1. ;........  Laufwagen 25(b)
  2.  
  3.  
  4. (defun C:LFW-25V2 (/ P1 P2 P10 P11 P12 P13 P14 P15 P16 P17 L PWR PLR PWL PLL
  5.                      E1 E2 E3 E4 E5 E6 Nr BName Lix n Ben2 Wi KK1 KK2)
  6.    (EAITmsg "mb_mld14" "\n\n" "022" "\n")             ;LAUFWAGEN 25 (b)
  7.    (EAITvari)
  8.    (EAITvars)
  9.    (setvar "ORTHOMODE" 0)
  10.    (EAITbpt nil nil (strcat (EAITmg "mb_mld12" "017") " " (EAITmg "mb_mld10" "015") " ")) ;  1. Punkt (Return = relativ):
  11.    (setq P1 (getpoint))
  12.    (if (= P1 nil)(setq P1 (EAITrpt)))
  13.    (EAITbpt nil nil (strcat (EAITmg "mb_mld12" "018") " " (EAITmg "mb_mld10" "015") " "))       ;2. Punkt (Return = relativ):
  14.    (setq P2 (getpoint P1))
  15.    (if (= P2 nil)(setq P2 (EAITrpt)))
  16.    (setq Wi (angle P2 P1)                                             ;Winkel zwischen Pick-pkt.
  17.          PWR (polar P1 (- Wi (EAITgib 90)) 20)                            ;E-Pkt Wellenklemmprofil rechts
  18.          PLR (polar PWR Wi 18)                                        ;E-Pkt Lagereinheit rechts
  19.          PWL (polar P2 (- Wi (EAITgib 90)) 20)                            ;E-Pkt Wellenklemmprofil links
  20.          PLL (polar PWL (+ Wi (EAITgib 180)) 18)                          ;E-Pkt Lagereinheit links
  21.          P10 (polar (polar P1 Wi 116)(+ Wi (EAITgib 90)) 20)              ;1.Pkt 1.Profillinie, E-pkt Abdeckkappe
  22.          P11 (polar P10 (+ Wi (EAITgib 90)) 40)                           ;1.Pkt 2.Profillinie
  23.          P12 (polar (polar P2 (+ Wi (EAITgib 180)) 116)(+ Wi (EAITgib 90)) 20) ;2.Pkt 1.Profillinie, E-pkt Abdeckkappe
  24.          P13 (polar P12 (+ Wi (EAITgib 90)) 40)                           ;2.Pkt 2.Profillinie
  25.          P14 (polar (polar P1 Wi 116)(+ Wi (EAITgib 90)) 36)
  26.          P15 (polar (polar P2 (+ Wi (EAITgib 180)) 116)(+ Wi (EAITgib 90)) 36)
  27.          P16 (polar (polar P1 Wi 116)(+ Wi (EAITgib 90)) 44)
  28.          P17 (polar (polar P2 (+ Wi (EAITgib 180)) 116)(+ Wi (EAITgib 90)) 44)
  29.          L   (atof (rtos (distance P10 P12) 2 1))                     ;Laenge des Profils
  30.          )
  31.    (setvar "ORTHOMODE" 0)
  32.    (setvar "OSMODE" 0)
  33.    (command EAITege (strcat EAITpfn "35002q1") PWR "" "" (EAITbig Wi)                 ;Wellenlklemmprofil
  34.             EAITege (strcat EAITpfn "35012v2") PLR "" "" (- (EAITbig Wi) 90))         ;Lagereinheit zentrisch
  35.    (setq kk1 (entlast))
  36.    (command EAITege (strcat EAITpfn "35002q1") PWL "" "" (+ (EAITbig Wi) 180)         ;Wellenlklemmprofil
  37.             EAITege (strcat EAITpfn "35011v2") PLL "" "" (+ (EAITbig Wi) 90))         ;Lagereinheit exzentrisch 
  38.    (setq kk2 (entlast))          
  39.    
  40.    (command EAITlay EAITlse "EAIT50" "" 
  41.             EAITlin P10 P12 "")                                       ;1. Profillenie
  42.    (setq E1 (entlast))
  43.    (command EAITlin P12 P13 P11 P10 ""
  44.             EAITlin P14 P15 ""
  45.             EAITlin P16 P17 "" 
  46.    )
  47.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4)
  48.          E6 (entnext E5))
  49.    
  50.    (setq BName (EAITbnr))   
  51.    (command EAITblo BName P10 E1 E2 E3 E4 E5 E6 ""
  52.             EAITege BName P10 "" "" ""
  53.             EAITege (strcat EAITpfn "02602s2") P10 "" "" (+ (EAITbig Wi)90)
  54.             EAITege (strcat EAITpfn "02602s2") P13 "" ""  (- (EAITbig Wi)90)
  55.    )
  56.  
  57.    (command EAITbks EAITbel kk1)
  58.    
  59.    (EAITDBL "0035002")    ;Wellenklemmprofil 25
  60.    (command EAITege (strcat EAITpfn "EAITinfo") '(12 -12) "" "" ""
  61.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  62.    )
  63.    (EAITDBL "0035009")    ;Welle 25
  64.    (command EAITege (strcat EAITpfn "EAITinfo") '(6 6) "" "" ""
  65.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  66.    )
  67.    (EAITDBL "0035017")    ;Befestigungssatz für Wellenklemmprofil 25
  68.    (command EAITege (strcat EAITpfn "EAITinfo") '(2 -25) "" "" ""
  69.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  70.    )
  71.    (EAITDBL "0035013")    ;Abstreif - und Schmiersystem 25
  72.    (command EAITege (strcat EAITpfn "EAITinfo") '(0 85) "" "" ""
  73.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  74.    )
  75.    (EAITDBL "0035019")    ;Doppellagereinheit 25z
  76.    (command EAITege (strcat EAITpfn "EAITinfo") '(30 60) "" "" ""
  77.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  78.    )
  79.    (EAITDBL "0026523")    ;Profil 160x40
  80.    (command EAITege (strcat EAITpfn "EAITinfo") '(-73 42) "" "" "" 
  81.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  82.    )
  83.    (EAITDBL "0026539")    ;Abdeckkappe 160x40
  84.    (command EAITege (strcat EAITpfn "EAITinfo") '(-73 100) "" "" "" 
  85.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  86.    )
  87.    (command EAITbks EAITbel kk2)                  
  88.  
  89.    (EAITDBL "0035018")    ;Doppellagereinheit 25e
  90.    (command EAITege (strcat EAITpfn "EAITinfo") '(-30 60) "" "" ""
  91.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  92.    )
  93.    (command EAITbks EAITbvo)
  94.    (command EAITbks EAITbvo)
  95.    (EAITvarz2)
  96.    (princ)
  97. )
  98.  
  99.  
  100. (defun C:LFW-25S2 (/ A BNAME NL P1 P2 P3 P10 P11 P12 Wi WL Pfang L L1 LOE1 LOE2
  101.                      E1 E2 E3 E4 E5 E6)
  102.    (EAITmsg "mb_mld14" "\n\n" "022" "\n")             ;LAUFWAGEN 25 (b)
  103.    (EAITvari)
  104.    (EAITvars)
  105.    (setvar "ORTHOMODE" 0)
  106.    (setvar "OSMODE" 0)
  107.    (EAITmsg "mb_mld14" "\n  " "008" ": ")             ;Traeger-Profil:
  108.    (setq NL (entsel " "))   
  109.    (EAITmsg "mb_mld14" "\n  " "019" ": ")             ;Profil-Außenlinie:
  110.    (setq P1 (entsel " "))
  111.    (setq P1 (cadr P1))
  112.    (EAITbpt nil nil (strcat " " (EAITmg "mb_mld14" "020") " " (EAITmg "mb_mld10" "015")" :")) ;Punkt auf Nutlinie: (Return = relativ):
  113.    (setq P2 (getpoint))
  114.    
  115.    (setq A 100)
  116.    
  117.    (setvar "ORTHOMODE" 0)
  118.    (setvar "OSMODE" 0)
  119.    (setvar "APERTURE" 4)
  120.    (setq P10 (osnap P1 EAITofend)
  121.          P11 (osnap P1 EAITofmit)
  122.          WL  (angle P10 P11)
  123.       P1  (inters P10 P11 P2 (polar P2 (+ WL(/ pi 2)) 10) nil)
  124.       P3  (polar P1 (+ (angle P1 P2) Pi) -20)
  125.    )        
  126.    (command EAITbks EAITbur P3
  127.             EAITbks EAITbz P2 P1
  128.    );BKS setzen
  129.    
  130.  
  131.    (setq P1 '(20 0)
  132.          P2 '(0 0)
  133.       Pfang '(20 11.875)
  134.       P10 (osnap Pfang EAITofend)
  135.          P11 (osnap Pfang EAITofmit)
  136.       L   (* (distance P10 P11) 2)
  137.       L1  (distance P1 P10)
  138.       WL  (angle P10 P11)        
  139.           P12 (polar P10 WL L)
  140.          Wi  (angle P12 P11)
  141.    )
  142.    (if (/= (cdr (assoc 2 (entget (car NL)))) nil) (command EAITurs NL))
  143.  
  144.        (command EAITzom EAITzomi '(0 0 0) '(20.5 0) '(-66.5 0))
  145.        (if (/= (ssget '(4 2)) nil)
  146.            (command EAITloes '(4 2) "")
  147.     )
  148.        (if (/= (ssget '(-4 2)) nil)
  149.          (command EAITloes '(-4 2) "")
  150.     )
  151.        (if (/= (ssget '(-36 2)) nil)
  152.          (command EAITloes '(-36 2) "")
  153.     )
  154.     (if (/= (ssget '(20 2)) nil)
  155.          (command EAITloes '(20 2) "")
  156.     )
  157.     (command EAITzom EAITzov)
  158.  
  159.    
  160.    (command EAITege (strcat EAITpfn "35019d1") '(0 0) "" "" 0
  161.             EAITege (strcat EAITpfn "26539v2") (list 40 (+ A 60)) "" "" -90
  162.             EAITege (strcat EAITpfn "26539v2") (list 40 (+(- A) 100)) "" "" -90
  163.             EAITlay EAITlse "EAIT50" ""
  164.    )
  165.           
  166. ;------Linien des Profils neu zeichnen
  167.  
  168.    (command EAITlin P10 (polar P10 WL (- L1 (+ A 60))) "")
  169.    (setq E1 (entlast))
  170.    (command EAITlin P12 (polar P12 Wi (- (- L L1) (+ A 60))) "")
  171.    (setq E2 (entnext E1))
  172.    (command EAITkop E1 E2 "" '(-3.5 0) ""
  173.             EAITkop EAITwvo "" '(-7.5 0) ""
  174.          EAITkop EAITwvo "" '(-32.5 0) ""
  175.          EAITkop EAITwvo "" '(-36.5 0) ""
  176.    )
  177.    (if (/= LOE1 nil) (command EAITkop EAITwvo "" '(-40 0) "")
  178.                      (command EAITkop EAITwvo "" '(-56 0) ""))
  179.    (command EAITlay EAITlse "EAITstpg" ""
  180.             EAITlin (polar (list 0 (cadr P12)) WL 5)
  181.              (polar (list 0 (cadr P10)) Wi 5) ""
  182.    )
  183.                  
  184.    
  185.    (setq L (abs (rtos L 2 1)))
  186.  
  187.    (EAITDBL "0035019")    ;Doppellagereinheit 25z
  188.    (command EAITege (strcat EAITpfn "EAITinfo") (list -32 (+ A 42)) "" "" ""
  189.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  190.    )
  191.    (EAITDBL "0035013")    ;Abstreif - und Schmiersystem 25
  192.    (command EAITege (strcat EAITpfn "EAITinfo") (list -32 (+ A 55)) "" "" ""
  193.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  194.    )
  195.    (EAITDBL "0026539")    ;Abdeckkappe 160x40
  196.    (command EAITege (strcat EAITpfn "EAITinfo") (list 47 (+ A 32)) "" "" ""
  197.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  198.    )
  199.    (EAITDBL "0026523")    ;Profil 160x40
  200.    (command EAITege (strcat EAITpfn "EAITinfo") (list 47 (+ A 22)) "" "" ""
  201.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  202.    )
  203.    (EAITDBL "0035009")    ;Welle 25
  204.    (command EAITege (strcat EAITpfn "EAITinfo") (list 8 (+ A 65)) "" "" ""
  205.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  206.    )
  207.    (EAITDBL "0035002")    ;Wellenklemmprofil 25
  208.    (command EAITege (strcat EAITpfn "EAITinfo") (list 14.5 (+ A 65)) "" "" ""
  209.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  210.   )
  211.   (EAITDBL "0035017")    ;Befestigungssatz für Wellenklemmprofil 25
  212.   (command EAITege (strcat EAITpfn "EAITinfo") (list 14.5 (+ A 80)) "" "" ""
  213.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  214.   )
  215.   (command EAITbks EAITbvo )
  216.   (command EAITbks EAITbvo )  
  217.   (EAITvarz2)
  218.   (princ)
  219. );defun
  220.  
  221.  
  222.  
  223.  
  224. (defun C:LFW-25D3 (/ A D1 D2 D3 D4 E1 E2 E3 E4 E5 E6 E7 E8 E9 L L1 L2 L3 L4 LP1  
  225.                      P1 P2 P10 P11 P12 P13 P14 P15 P16 Pfang PL1 PL2 WL Wi)
  226.    (EAITmsg "mb_mld14" "\n\n" "022" "\n")             ;LAUFWAGEN 25 (b)
  227.    (EAITvari)
  228.    (EAITvars)
  229.    (setvar "ORTHOMODE" 0)
  230.    (setvar "OSMODE" 0)
  231.    (EAITmsg "mb_mld14" "\n  " "013" ": ")             ;Erste Profil-Außenlinie:
  232.    (setq P1 (entsel " "))
  233.    (setq P1 (cadr P1))   
  234.    (EAITbpt nil nil (strcat "  " (EAITmg "mb_mld14" "014") ": " (EAITmg "mb_mld10" "015") ": " )) ;Punkt auf zweiter Profil-Außenlinie: (Return = relativ):
  235.    (setq P2 (getpoint))
  236.    
  237.    (setq A 100)               ;Achsabstand ist fix auf 200, mit 100 wird gerechnet
  238.    
  239.    (setvar "ORTHOMODE" 0)
  240.    (setvar "OSMODE" 0)
  241.    (setvar "APERTURE" 4)
  242.    (setq P10 (osnap P1 EAITofend)                            ;Endpunkt Außenlinie
  243.          P11 (osnap P1 EAITofmit)                            ;Mitte Außenlinie
  244.          WL  (angle P10 P11)                             ;Winkel Außenlinie
  245.          P1  (inters P10 P11 P2 (polar P2 (+ WL(/ pi 2)) 10) nil) ;Pkt. Lotrecht zu P2
  246.          D1  (distance P1 P2)                             ;Abstand Profilaußenlinien        
  247.    )        
  248.    
  249.    (command EAITbks EAITbur P2
  250.             EAITbks EAITbz P2 P1)
  251.    (setq P1 (list D1 0)
  252.          P2 '(0 0)
  253.       Pfang (list D1 11.875)
  254.       P10 (osnap Pfang EAITofend)                          ;1.Endpkt Außenlinie
  255.          P11 (osnap Pfang EAITofmit)                          ;Mitte Außenlinie
  256.       L   (* (distance P10 P11) 2)                     ;laenge Außenlinie
  257.       L1  (distance P1 P10)                            ;Laenge von P1 zu AL
  258.       L2  (- L L1) 
  259.       L3  (- L1 (+ A 60))
  260.       L4  (- L2 (+ A 60))
  261.       LP1 (+ D1 (* 116 2))                             ;L Profil 160x40
  262.       WL  (angle P10 P11)                              ;Winkel AL
  263.           P12 (polar P10 WL L)                             ;2. Endpkt AL
  264.          Wi  (angle P12 P11)                              ;Winkel AL um 180°
  265.          D2  (+ D1 32.5)
  266.       D3  (+ D1 24.5)
  267.       D4  (+ D1 18)
  268.       P13 (list D2 (cadr P10))
  269.       P14 (list D2 (cadr P12))
  270.       P15 (polar P13 WL L3)
  271.       P16 (polar P14 Wi L4)
  272.       PL1 (list D2 (- A 60))
  273.       PL2 (list D2 (+ (- A) 60))
  274.    )
  275.  
  276. ;-------------Einfügen der Doppellagereinheiten          
  277.  
  278.    (command EAITege (strcat EAITpfn "35019s1") (list D1 0 ) "" "" -90
  279.          EAITege (strcat EAITpfn "35018s1") '(0 0) "" "" 90
  280.    )
  281.    
  282. ;-------------Welle u. Klemmprofil zeichnen   
  283.  
  284.    (command EAITlay EAITlse "EAIT50" ""
  285.             EAITlin P10 P13 ""
  286.    )
  287.    (setq E1 (entlast))
  288.    (command EAITlin P13 P15 ""
  289.             EAITlin P12 P14 P16 ""
  290.          EAITlin (list D3 (cadr P13))(list D3 (cadr P15)) ""
  291.          EAITlin (list D3 (cadr P16))(list D3 (cadr P14)) ""
  292.    )
  293.    (setq E2 (entnext E1)E3 (entnext E2) E4 (entnext E3) E5 (entnext E4)
  294.          E6 (entnext E5)
  295.    )
  296.   
  297.    (command EAITlay EAITlse "EAITstpg" ""
  298.             EAITlin (polar (list D4 (cadr P10)) Wi 5)
  299.              (polar (list D4 (cadr P12)) WL 5) ""
  300.    )                
  301.    (setq E7 (entnext E6))
  302.    (command EAITspi E1 E2 E3 E4 E5 E6 E7 "" 
  303.                       (list (/ D1 2) 0)(list (/ D1 2) 5) EAITspn
  304.    )
  305.  
  306. ;------------Einfuegen der Info-Pkt.
  307.           
  308.    (setq LP1 (abs (rtos LP1 2 1))
  309.       L   (abs (rtos L  2 1)))
  310.  
  311.    (EAITDBL "0035019")    ;Doppellagereinheit 25z
  312.    (command EAITege (strcat EAITpfn "EAITinfo") (list (+ D1 10) (+ A 42)) "" "" ""
  313.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  314.    )
  315.    (EAITDBL "0035018")    ;Doppellagereinheit 25e
  316.    (command EAITege (strcat EAITpfn "EAITinfo") (list -10 (+ A 42)) "" "" ""
  317.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  318.    )
  319.    (EAITDBL "0035013")    ;Abstreif - und Schmiersystem 25
  320.    (command EAITege (strcat EAITpfn "EAITinfo") (list -10 (+ A 55)) "" "" ""
  321.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  322.    )
  323.    (EAITDBL "0026523")    ;Profil 160x40
  324.    (command EAITege (strcat EAITpfn "EAITinfo") '(-110 30) "" "" ""
  325.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 LP1 (rtos EAITb1 2 1) EAITnr
  326.    )
  327.    (EAITDBL "0026539")    ;Abdeckkappe 160x40
  328.    (command EAITege (strcat EAITpfn "EAITinfo") '(-118 30) "" "" ""
  329.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  330.    )
  331.    (EAITDBL "0035002")    ;Wellenklemmprofil 25
  332.    (command EAITege (strcat EAITpfn "EAITinfo") (list -15 (+ A 65)) "" "" ""
  333.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  334.    )
  335.    (EAITDBL "0035017")    ;Befestigungssatz für Wellenklemmprofil 25
  336.    (command EAITege (strcat EAITpfn "EAITinfo") (list -15 (+ A 80)) "" "" ""
  337.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  338.    )
  339.    (EAITDBL "0035009")    ;Welle 25
  340.    (command EAITege (strcat EAITpfn "EAITinfo") (list -28.5 (+ A 65)) "" "" ""
  341.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  342.    )
  343.   (command EAITbks EAITbvo )
  344.   (command EAITbks EAITbvo )
  345.   (EAITvarz2)
  346.   (princ)
  347.  
  348. );defun
  349.  
  350.  
  351.  
  352. (defun C:LFW-25D4 (/ A D1 D2 D3 D4 E1 E2 E3 E4 E5 E6 E7 E8 E9 E10 E11 E12 E13 
  353.                      E14 E15 E16 E17 E18 E19 E20 E21 E22 E23 E24 E25
  354.                      ELOE L Li L1 L2 L3 L4 LP1 LP2 LP3 N NL
  355.                      P1 P2 P10 P11 P12 P13 P14 P15 P16 P17 P18 P19 Pfang PL1 PL2 
  356.                  SS1 SS2 WL Wi)
  357.    (EAITmsg "mb_mld14" "\n\n" "022" "\n")             ;LAUFWAGEN 25 (b)
  358.    (EAITvari)
  359.    (EAITvars)
  360.    (setvar "ORTHOMODE" 0)
  361.    (setvar "OSMODE" 0)
  362.    (EAITmsg "mb_mld14" "\n  " "008" ": ")             ;Traeger-Profil:
  363.    (setq NL (entsel " "))   
  364.    (EAITmsg "mb_mld14" "\n  " "013" ": ")             ;Erste Profil-Außenlinie:
  365.    (setq P1 (entsel " "))
  366.    (setq P1 (cadr P1))   
  367.    (EAITbpt nil nil (strcat (EAITmg "mb_mld14" "014") ": " (EAITmg "mb_mld10" "015"))) ;Punkt auf zweiter Profil-Außenlinie: (Return = relativ):
  368.    (setq P2 (getpoint))   
  369.    
  370.    (setq A 100)                  
  371.            
  372.    (setvar "ORTHOMODE" 0)
  373.    (setvar "OSMODE" 0)
  374.    (setvar "APERTURE" 4)
  375.    (setq P10 (osnap P1 EAITofend)                            ;Endpunkt Außenlinie
  376.          P11 (osnap P1 EAITofmit)                            ;Mitte Außenlinie
  377.          WL  (angle P10 P11)                             ;Winkel Außenlinie
  378.          P1  (inters P10 P11 P2 (polar P2 (+ WL(/ pi 2)) 10) nil) ;Pkt. Lotrecht zu P2
  379.          D1  (distance P1 P2)                             ;Abstand Profilaußenlinien        
  380.    )        
  381.    
  382.    (command EAITbks EAITbur P2
  383.             EAITbks EAITbz P2 P1)
  384.           
  385.    (setq P1 (list D1 0)
  386.          P2 '(0 0)
  387.       Pfang (list D1 11.875)
  388.       P10 (osnap Pfang EAITofend)                          ;1.Endpkt Außenlinie
  389.          P11 (osnap Pfang EAITofmit)                          ;Mitte Außenlinie
  390.       L   (* (distance P10 P11) 2)                     ;laenge Außenlinie
  391.       L1  (distance P1 P10)                            ;Laenge von P1 zu AL
  392.       L2  (- L L1) 
  393.       L3  (- L1 (+ A 60))
  394.       L4  (- L2 (+ A 60))
  395.       LP1 (+ D1 (* 116 2))                             ;L Profil 160x40
  396.       LP2 (- (* A 2) 80)                               
  397.       LP3 (/ (- LP1 160) 2)                            ;L Ende Pro.80x40 - Pos Pro.160x40
  398.       WL  (angle P10 P11)                                ;Winkel AL
  399.           P12 (polar P10 WL L)                             ;2. Endpkt AL
  400.          Wi  (angle P12 P11)                              ;Winkel AL um 180°
  401.          D2  (+ D1 32.5)
  402.       D3  (+ D1 24.5)
  403.       D4  (+ D1 18)
  404.       P13 (list D2 (cadr P10))
  405.       P14 (list D2 (cadr P12))
  406.       P15 (polar P13 WL L3)
  407.       P16 (polar P14 Wi L4)
  408.       P17 '(-116 0)
  409.       P18 '(-116 -160)
  410.       P19 (polar P17 0 LP3)
  411.       PL1 (list D2 (- A 60))
  412.       PL2 (list D2 (+ (- A) 60))
  413.    )
  414.    
  415. ;-------------Altes Traegerprofil löschen
  416.  
  417.    (if (OR (equal D1 40 0.0001) (equal D1 80 0.0001) (equal D1 160 0.0001) )
  418.         (progn (if (/= (cdr (assoc 2 (entget (car NL)))) nil) (command EAITurs NL))
  419.                (setq ELOE (ssget EAITwkr '(-0.5 0.5)(polar P1 (/ Pi 4) 1)))
  420.                (command EAITloes ELOE "")
  421.         );progn        
  422.    );if
  423.    
  424. ;-------------Neues Traegerprofil zeichnen
  425.  
  426.  
  427.    (command EAITlay EAITlse "EAIT50" ""
  428.             EAITlin P10 (polar P10 WL L3) ""
  429.    )
  430.    (setq SS1 (ssadd (entlast)))
  431.    (command EAITlin P12 (polar P12 Wi L4) "")
  432.    (setq SS1 (ssadd (entlast) SS1))
  433.    
  434.    (cond ( (equal D1 40 0.0001)
  435.               (setq LI '(16 24 40))
  436.          )
  437.         ( (equal D1 80 0.0001)
  438.               (setq LI '(16 24 56 64 80))
  439.          )
  440.         ( (equal D1 160 0.0001)
  441.               (setq LI '(16 24 56 64 96 104 136 144 160))
  442.          )
  443.         (T  (setq LI (list D1))) 
  444.    );cond
  445.    
  446.    (foreach N LI
  447.        (command EAITkop SS1 "" (list (- N) 0) "")
  448.    );foreach
  449.    
  450.       
  451.    
  452. ;-------------Profile zeichnen
  453.  
  454.    (if (not EAITpro8)(load (strcat EAITpfn "EAITpro8")))
  455.    (EAITpro8 "160x40" P17 LP1 0 0)
  456.    (EAITpro8 "160x40" P18 LP1 0 0)
  457.    
  458.    
  459. ;-------------Welle u. Klemmprofil zeichnen   
  460.  
  461.    (command EAITlin P10 P13 "")
  462.    (setq E1 (entlast))
  463.    (command EAITlin P13 P15 ""
  464.             EAITlin P12 P14 P16 ""
  465.           EAITlin (list D3 (cadr P13))(list D3 (cadr P15)) ""
  466.           EAITlin (list D3 (cadr P16))(list D3 (cadr P14)) ""
  467.    )
  468.    (setq E2 (entnext E1)E3 (entnext E2) E4 (entnext E3) E5 (entnext E4)
  469.          E6 (entnext E5) 
  470.    )
  471.   
  472.    (command EAITlay EAITlse "EAITstpg" ""
  473.             EAITlin (polar (list D4 (cadr P10)) Wi 5)
  474.                   (polar (list D4 (cadr P12)) WL 5) ""
  475.    )                
  476.    (setq E7 (entnext E6))
  477.    (command EAITspi E1 E2 E3 E4 E5 E6 E7 "" 
  478.                       (list (/ D1 2) 0)(list (/ D1 2) 5) EAITspn
  479.    )
  480.  
  481. ;------------Zeichnen der Achspunkte
  482.  
  483.          (command EAITlay EAITlse "EAITstpg" ""
  484.                     EAITlin (list -33 A) (list -93 A) ""
  485.              EAITlin (list -63 (+ A 30)) (list -63 (- A 30)) ""
  486.              EAITlin (list -64.5 (+ A 25)) (list -64.5 (- A 25)) ""
  487.                     EAITlin (list -33 (- A)) (list -93 (- A)) ""
  488.              EAITlin (list -63 (+ (- A) 30)) (list -63 (- (- A) 30)) ""
  489.              EAITlin (list -64.5 (+ (- A) 25)) (list -64.5 (- (- A) 25)) ""
  490.                     EAITlin (list (+ D1 33) A) (list (+ D1 93) A) ""
  491.              EAITlin (list (+ D1 63) (+ A 30)) (list (+ D1 63) (- A 30)) ""
  492.                     EAITlin (list (+ D1 33) (- A)) (list (+ D1 93) (- A)) ""
  493.              EAITlin (list (+ D1 63) (+ (- A) 30)) (list (+ D1 63) (- (- A) 30)) ""                
  494.            )
  495.  
  496.    
  497. ;------------Einfuegen der Abdeckkappen
  498.  
  499.    (command EAITege (strcat EAITpfn "26539s1") (list -116 (- A 100)) "" "" 90
  500.             EAITege (strcat EAITpfn "26539s1") (list (+ D1 116) (+ A 60)) "" "" -90
  501.          EAITege (strcat EAITpfn "26539s1") (list -116 (- (- A) 60)) "" "" 90
  502.          EAITege (strcat EAITpfn "26539s1") (list (+ D1 116) (- A 100)) "" "" -90
  503.    )
  504.              
  505.    
  506. ;------------Einfuegen der Info-Pkt.
  507.           
  508.    (setq L   (abs (rtos L   2 1))
  509.          LP1 (abs (rtos LP1 2 1)))
  510.    
  511.    (EAITDBL "0035019")    ;Doppellagereinheit 25z
  512.    (command EAITege (strcat EAITpfn "EAITinfo") (list (+ D1 10) (+ A 42)) "" "" ""
  513.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  514.    )
  515.    (EAITDBL "0035018")    ;Doppellagereinheit 25e
  516.    (command EAITege (strcat EAITpfn "EAITinfo") (list -10 (+ A 42)) "" "" ""
  517.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  518.    )
  519.    (EAITDBL "0035013")    ;Abstreif - und Schmiersystem 25
  520.    (command EAITege (strcat EAITpfn "EAITinfo") (list -10 (+ A 55)) "" "" ""
  521.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  522.    )
  523.    (EAITDBL "0026523")    ;Profil 160x40
  524.    (command EAITege (strcat EAITpfn "EAITinfo") (list -108 (- A 30)) "" "" ""
  525.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 LP1 (rtos EAITb1 2 1) EAITnr
  526.    )
  527.    (EAITDBL "0026539")    ;Abdeckkappe 160x40
  528.    (command EAITege (strcat EAITpfn "EAITinfo") (list -118 (- A 30)) "" "" ""
  529.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  530.    )
  531.    (EAITDBL "0035002")    ;Wellenklemmprofil 25
  532.    (command EAITege (strcat EAITpfn "EAITinfo") (list -15 (+ A 65)) "" "" ""
  533.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  534.    )
  535.    (EAITDBL "0035017")    ;Befestigungssatz für Wellenklemmprofil 25
  536.    (command EAITege (strcat EAITpfn "EAITinfo") (list -15 (+ A 80)) "" "" ""
  537.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  538.    )
  539.    (EAITDBL "0035009")    ;Welle 25
  540.    (command EAITege (strcat EAITpfn "EAITinfo") (list -28.5 (+ A 65)) "" "" ""
  541.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  542.    )
  543.   (command EAITbks EAITbvo )
  544.   (command EAITbks EAITbvo )
  545.   (EAITvarz2)
  546.   (princ)
  547.  
  548.           
  549. );defun
  550.  
  551. (princ)
  552.